home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / beach.scp < prev    next >
Text File  |  1995-02-25  |  6KB  |  596 lines
  1.  
  2. { BEACH_LOAD
  3. ^åû = $âî 
  4. I ^àñ THEN
  5. @Çì MISSLE_DAMAGE
  6.  
  7.  
  8. @Ç¢ PLAYER
  9.  
  10. I @Ç⌐ LEXMIR THEN
  11. {
  12. ^àï = @Çì REFLECTBATTDRAIN
  13. }
  14.  
  15. I ^ï¿ = 1 THEN
  16. ^Åì = @Çì BIOREPAIR
  17. @Çì MASTABA_THREATENS_ESCHER
  18. @Çì CREATE_WARHEAD
  19. @Çì MISSLE_BLINKIE 
  20. @Çì READY_TUMOLT
  21. @Çì ANIMBCHACIDBUBS
  22. @Çì ANIMBCHACIDBUBS2
  23. I ^ç╖ THEN @Çì CREATE_BLASTERS
  24. @Çì READY_MARINE2
  25. @Çì READY_MARINE3A
  26. I ^ç╖ == $üé THEN
  27. @Çì READY_BEACHBOTS
  28. E 
  29. @Çì KILL_BEACHBOTS
  30.  
  31.  
  32. I ^àƒ == $üé THEN 
  33. {
  34. ^࣠= @Çì FLUFFY_SFX1
  35. ^ॠ= @Çì FLUFFY_SFX2
  36. ^à₧ = @Çì FLUFFY_SFX3
  37. }
  38.  
  39.  
  40. ^ï║ = 0
  41. ^ï╜ = 0
  42.  
  43. I ^å¼ = 1 THEN
  44. {
  45. G FRM_PAD
  46. C BCH3
  47. }
  48. I ^å¼ = 2 THEN
  49. {
  50. G TO_CTY
  51. }
  52.  
  53. I ^å¼ = 3 THEN
  54. {
  55.  
  56.  
  57. ^å¼ = 0
  58. @Çì HARD_SUIT_OPEN_BEACH
  59. J #Çü
  60. }
  61. C UNLOCK
  62.  
  63. @Çì ESCHERS_PLEES_FOR_HELP
  64. :END
  65. I ^ç╖ = 1 THEN 
  66. {
  67. ^é« = 1
  68. ^é» = 1
  69. }
  70. }
  71. { BCH_LOAD
  72. C BCHZ LOAD
  73. }
  74. { BCHZ_LOAD
  75. I @Çû ^ê╖ THEN  ^ê╖ 
  76. E  ^ê╕ 
  77.  
  78. :LOOP 
  79. W 3
  80. I ^éñ == 2 THEN 
  81. { 
  82. ^éÿ = 0
  83. â 
  84. J #Çä 
  85. }
  86. ^éñ ++
  87. â 
  88. J #Çä 
  89. }
  90. { BCH4_LOAD
  91. W 5 SECONDS
  92. i LEX BLOCKS
  93. }
  94. { BCH8_LOAD
  95. W 5 SECONDS
  96. i LEX BLOCKS
  97. }
  98. { BCHA_LOAD
  99. I @Çû ^ê╖ THEN  ^ê╖ 
  100. E  ^ê╕ 
  101. }
  102. { BCHM_LOAD
  103. I @Çû ^ê╖ THEN  ^ê╖ 
  104. E  ^ê╕ 
  105. }
  106. { BCHR_LOAD
  107. I @Çû ^ê╖ THEN  ^ê╖ 
  108. E  ^ê╕ 
  109. }
  110. { BTN_LOAD
  111. I @Çû ^ê╖ THEN  ^ê╖ 
  112. E  ^ê╕ 
  113. }
  114. { BCHDETH
  115.  
  116. @Ç¥ KILLWARHEAD
  117. I @Çó ^àÄ THEN
  118.  ^àÄ 
  119. I @Çó ^àì THEN
  120. {
  121. ñ CURFIG
  122. é 
  123. }
  124. @Çì ANIMATE_ACID
  125. @Ç¢ PLAYER
  126. M STAND SNAP_TO FREEZE
  127. £ 180
  128. G MELT
  129. ñ CURFIG
  130. A OFF
  131. Z CURFIG OFF
  132. u CURFIG OFF
  133. C BCHZ
  134. W 5
  135. M DROWN 150 CONTINUE FREEZE
  136. W 5
  137. @Çå `Ç¢ 150 
  138. W 1 SECOND
  139. @Çå `ä½ 
  140. W 1 SECONDS
  141. â 
  142. O $Çà 
  143. @Ç¥ KILLLEX
  144. }
  145. [ ANIMATE_ACID
  146. :TOP
  147. 00:00 ^éñ = 0
  148. 00:03 ^éñ = 1
  149. 00:06 ^éñ = 2
  150. 00:09 ò 
  151. J #Çì
  152. ]
  153. { CREATE_BLASTERS
  154. I @ÇÜ BLASTERM3A == 0 THEN
  155. {
  156. e BLASTER
  157. n CURITEM BLASTERM3A
  158. f COORDS -4642 -3822 -40
  159. }
  160. I @ÇÜ BLASTERM2 == 0 THEN
  161. {
  162. e BLASTER
  163. n CURITEM BLASTERM2
  164. f COORDS -4759 -4009 -40
  165. }
  166. }
  167. { CREATE_WARHEAD
  168. e BOMB
  169. f COORDS 6666 6666 6666
  170. }
  171. { TO_PAD
  172.  
  173. I @Çó ^àû == $üâ && ^àÿ > 0 THEN
  174. {
  175. @Ç¥ BLAST_LEX
  176. é 
  177. }
  178. @Ç¢ PLAYER
  179. M STAND CONTINUE
  180. S LANDPAD FROM_BCH
  181. }
  182.  
  183. { FRM_PAD_USE
  184. ^嬠= 2
  185. @Ç¢ PLAYER
  186. o 
  187. M STAND CONTINUE
  188. S LANDPAD
  189. }
  190. { TO_LNDR_USE
  191. G TO_LDG
  192. }
  193. { TO_LDG_USE
  194. G TO_LNDR
  195. }
  196. { TO_CTY_USE
  197. ^å¡ = 1
  198. S DIGSITE
  199. }
  200. { TO_TPL
  201.  
  202. I @Çó ^àû == $üâ && ^àÿ > 0 THEN
  203. {
  204. @Ç¥ BLAST_LEX
  205. é 
  206. }
  207. S TUNROOM FROM_BCH
  208. }
  209.  
  210. { FOOTBCH
  211.  
  212. I ^êå = 0 THEN 
  213. {
  214. ^êå = 1
  215.  `î¡ `ëû 
  216.  `ìé `ëû 
  217.  `ìù `ëû 
  218.  `ì¼ `ëû 
  219.  `Äü `ëû 
  220.  `öÖ `ëû 
  221.  `öÜ `ëû 
  222. }
  223. E 
  224. {
  225. ä `î¡ 
  226. ä `ìé 
  227. ä `ìù 
  228. ä `ì¼ 
  229. ä `Äü 
  230. ä `öÖ 
  231. ä `öÜ 
  232. ^êå = 0
  233. }
  234. }
  235.  
  236. { FOOTBCH2
  237. I ^êå = 0 THEN 
  238. {
  239. ^êå = 1
  240.  `î╝ `ëû 
  241.  `ìæ `ëû 
  242.  `쪠`ëû 
  243.  `ì╗ `ëû 
  244.  `ÄÉ `ëû 
  245.  `öÖ `ëû 
  246.  `öÜ `ëû 
  247.  
  248. }
  249. E 
  250. {
  251. ä `î╝ 
  252. ä `ìæ 
  253. ä `쪠
  254. ä `ì╗ 
  255. ä `ÄÉ 
  256. ä `öÖ 
  257. ä `öÜ 
  258. ^êå = 0
  259. }
  260. }
  261.  
  262. { LND_LOAD
  263. @Çì REACTIVATE_TUMOLT
  264. W 20 SECONDS
  265. i LEX SHIPWRCK
  266. }
  267. [ HARD_SUIT_OPEN_BEACH
  268.  
  269. 00:00 ^é« = 27
  270. ^é» = 27
  271. 02:00 @Çè ^é« -1 27 1 4 
  272. @Çè ^é» -1 27 1 4 
  273. @Çå `â¿ 
  274. W 100
  275. A ON
  276.  
  277. ]
  278. [ HARD_SUIT_CLOSE_BEACH
  279. 00:00 ^é« = 1
  280. ^é» = 1
  281. @Çå `â¿ 
  282. 00:04 ^é« = 2
  283. ^é» = 2
  284. 00:08 ^é« = 3
  285. ^é» = 3
  286. 00:12 ^é« = 4
  287. ^é» = 4
  288. 00:16 ^é« = 5
  289. ^é» = 5
  290. 00:20 ^é« = 6
  291. ^é» = 6
  292. 00:24 ^é« = 7
  293. ^é» = 7
  294. 00:28 ^é« = 8
  295. ^é» = 8
  296. 01:02 ^é« = 9
  297. ^é» = 9
  298. 01:06 ^é« = 10
  299. ^é» = 10
  300. 01:10 ^é« = 11
  301. ^é» = 11
  302. 01:14 ^é« = 12
  303. ^é» = 12
  304. 01:18 ^é« = 13
  305. ^é» = 13
  306. 01:22 ^é« = 14
  307. ^é» = 14
  308. 01:26 ^é« = 15
  309. ^é» = 15
  310. 02:00 ^é« = 16
  311. ^é» = 16
  312. 02:04 ^é« = 17
  313. ^é» = 17
  314. 02:08 ^é« = 18
  315. ^é» = 18
  316. 02:12 ^é« = 19
  317. ^é» = 19
  318. 02:16 ^é« = 20
  319. ^é» = 20
  320. 02:20 ^é« = 21
  321. ^é» = 21
  322. 02:24 ^é« = 22
  323. ^é» = 22
  324. 02:28 ^é« = 23
  325. ^é» = 23
  326. 03:02 ^é« = 24
  327. ^é» = 24
  328. 03:06 ^é« = 25
  329. ^é» = 25
  330. 03:10 ^é« = 26
  331. ^é» = 26
  332. 03:14 ^é« = 27
  333. ^é» = 27
  334. ]
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343. { SUITTES3
  344. I ^ç╖ == $üâ THEN é 
  345.  
  346. I ^â½ = 0 THEN
  347. {
  348. I ^üè = 1 THEN
  349. {
  350. ^üè = 0
  351. @Çì HARDSUITMACHINE
  352. }
  353.  
  354.  
  355. : TEST
  356. â 
  357. I @Çá CURFIG SUITTES3 < 300 THEN
  358. {
  359. J #Ç£ 
  360. }
  361.  
  362. ^üè = 1
  363. }
  364. }
  365.  
  366. { HARDSUITMACHINE
  367. {
  368.  
  369. I @Ç¢ PLAYER THEN
  370. {
  371. A OFF
  372. o 
  373. }
  374.  
  375.  
  376. @Ç¥ HARD_SUIT_CLOSE_BEACH 
  377.  
  378.  
  379. I @Ç⌐ LEX OR @Ç⌐ LEXMIR THEN
  380. {
  381. ù HARD
  382.  
  383. }
  384. E 
  385. {
  386. ù LEX
  387. }
  388. @Ç¥ LEX_WOUNDS
  389. ^å¡ = 3
  390.  
  391. ^âÖ = 25
  392. ^âÜ = 25
  393. S DIGSITE SUITTES2
  394. W 3 SECONDS
  395. }
  396. } 
  397.  
  398. { GO_PORT
  399. @Ç¢ PLAYER
  400. G FALLPORT
  401. }
  402. { OKTODROPHERE
  403. P ~ÇÇ 
  404. ~ÇÇ = 1
  405. I @Çí CURFIG EVIL1 THEN
  406. ~ÇÇ = 0
  407. I @Çí CURFIG EVIL2 THEN
  408. ~ÇÇ = 0
  409. é ~ÇÇ 
  410. }
  411. { LEX_PUT_DOWN_LTHAND
  412. I @Ç¥ OKTODROPHERE THEN
  413. M PUT_DOWN_LTHAND
  414. }
  415. { LEX_PUT_DOWN_RTHAND
  416. I @Ç¥ OKTODROPHERE THEN
  417. M PUT_DOWN_RTHAND
  418. }
  419. { MISSLE_BLINKIE
  420. ó BCHH
  421. {
  422. :BLINKAGAIN
  423. I ^é¿ = 1 THEN
  424. {
  425. ^鬠= 1
  426. W 3
  427. ^鬠= 0
  428. W 3
  429. J #Çú 
  430. }
  431. }
  432. }
  433. [ ANIMBCHACIDBUBS
  434. ó BCH2 BCH3 BCH4 BCH5 BCH6 BCH7 BCH9 BCHM
  435. ^ê╖ = @Çç `Çü 100 
  436. I @Çû ^ê╕ THEN  ^ê╕ 
  437. :BUBLOOP
  438. 00:00 ^é½ = 1
  439. 00:02 ^é½ = 2
  440. 00:04 ^é½ = 3
  441. 00:06 ^é½ = 4
  442. 00:08 ^é½ = 5
  443. 00:10 ^é½ = 6
  444. 00:12 ^é½ = 7
  445. 00:14 ^é½ = 8
  446. 00:16 ^é½ = 9
  447. 00:18 ^é½ = 10
  448. 00:20 ^é½ = 11
  449. 00:22 ^é½ = 12
  450. 00:22 ò 
  451. J #ÇÑ 
  452. ]
  453. [ ANIMBCHACIDBUBS2
  454. ó BCHB BCHC BCHD BCHE BCHF BCHG BCHH BCHJ BCHK
  455. ^ê╕ = @Çç `Çü 75 
  456. I @Çû ^ê╖ THEN  ^ê╖ 
  457. :BUBLOOP
  458. 00:00 ^é½ = 1
  459. 00:02 ^é½ = 2
  460. 00:04 ^é½ = 3
  461. 00:06 ^é½ = 4
  462. 00:08 ^é½ = 5
  463. 00:10 ^é½ = 6
  464. 00:12 ^é½ = 7
  465. 00:14 ^é½ = 8
  466. 00:16 ^é½ = 9
  467. 00:18 ^é½ = 10
  468. 00:20 ^é½ = 11
  469. 00:22 ^é½ = 12
  470. 00:22 ò 
  471. J #Ǻ 
  472. ]
  473.  
  474. [ FLUFFY_SFX1
  475.  
  476. P ~ÇÇ 
  477. P ~Çü 
  478. P ~Çé 
  479. ó BCH2 BCH3 BCH4 BCH5 BCH6 BCH7 BCH8 BCH9 BCHA BCHB 
  480.  
  481. ~ÇÇ = @Çà 5 10 
  482. ~Çü = 0
  483. ~Çé = 0
  484.  
  485. :SFXLOOP
  486. W ~ÇÇ SECONDS
  487. ~Çé = @Çà 1 8 
  488. I @Çù `üô THEN J #Ç⌐ 
  489. N ~Çé 
  490. {
  491. U 1
  492. @Çå `è│ 125 ~Çü 
  493. X ÇÇ 
  494. U 2
  495. @Çå `è┤ 125 ~Çü 
  496. X ÇÇ 
  497. U 3 
  498. @Çå `è╡ 125 ~Çü 
  499. X ÇÇ 
  500. U 4
  501. @Çå `üô 125 ~Çü 
  502. X ÇÇ 
  503. U 5
  504. @Çå `è╢ 125 ~Çü 
  505. X ÇÇ 
  506. U 6
  507. U 7 
  508. U 8
  509. @Çå `è╖ 150 ~Çü 
  510.  
  511. }
  512. J #Ç⌐ 
  513. ]
  514. [ FLUFFY_SFX2
  515.  
  516. P ~ÇÇ 
  517. P ~Çü 
  518. P ~Çé 
  519. ó BCHC BCHD BCHE BCHF 
  520.  
  521. ~ÇÇ = @Çà 5 10 
  522. ~Çü = 0
  523. ~Çé = 0
  524.  
  525. :SFXLOOP
  526. W ~ÇÇ SECONDS
  527. ~Çé = @Çà 1 8 
  528. I @Çù `üô THEN J #ǽ 
  529. N ~Çé 
  530. {
  531. U 1
  532. @Çå `è│ 100 ~Çü 
  533. X Çü 
  534. U 2
  535. @Çå `è┤ 100 ~Çü 
  536. X Çü 
  537. U 3 
  538. @Çå `è╡ 100 ~Çü 
  539. X Çü 
  540. U 4
  541. @Çå `üô 100 ~Çü 
  542. X Çü 
  543. U 5
  544. @Çå `è╢ 100 ~Çü 
  545. X Çü 
  546. U 6
  547. U 7 
  548. U 8
  549. @Çå `è╖ 150 ~Çü 
  550.  
  551. }
  552. J #ǽ 
  553. ]
  554. [ FLUFFY_SFX3
  555.  
  556. P ~ÇÇ 
  557. P ~Çü 
  558. P ~Çé 
  559. ó LND1 LND2 LND3 LND4 LND5 
  560.  
  561. ~ÇÇ = @Çà 5 10 
  562. ~Çü = 0
  563. ~Çé = 0
  564.  
  565. :SFXLOOP
  566. W ~ÇÇ SECONDS
  567. ~Çé = @Çà 1 6 
  568. I @Çù `üô THEN J #Ç¡ 
  569. N ~Çé 
  570. {
  571. U 1
  572. @Çå `è│ 75 ~Çü 
  573. X Çé 
  574. U 2
  575. @Çå `è┤ 75 ~Çü 
  576. X Çé 
  577. U 3 
  578. @Çå `è╡ 75 ~Çü 
  579. X Çé 
  580. U 4
  581. @Çå `üô 75 ~Çü 
  582. X Çé 
  583. U 5
  584. @Çå `è╢ 75 ~Çü 
  585. X Çé 
  586. U 6
  587. @Çå `è╖ 100 ~Çü 
  588. W @Çà 15 30 
  589. @Çå `è╖ 100 ~Çü 
  590. }
  591. J #Ç¡ 
  592. ]
  593.  
  594.  
  595. //$ 26 - version number
  596.